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FACILITY: 
CTERM Remote terminal protocol driver 
ABSTRACT: 


This module is called to map a characteristics item List received 
from the net into VMS terminal characteristics. 


ENVIRONMENT : 


AUTHOR: Jake VanNoy, CREATION DATE: 23-Aug-1982 
MODIFIED BY: 


v03-001 JLV0297 Jake VanNo 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 
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: MACROS: 
»MACRO CHAR LABEL 
«WORD char TUR SE RO 


co 
“WORD LABEL NSE ROOTIN 
char count = char_count + 
-ENDA = CHAR 


§ 

60 

1 

63 

64 

o? 

e9 

69 

5 

4 

48 

74 

75 

76 

77 MACRO = BPS 
78 WORD BPS 
0 .ENDM BAUDTAB 

81 .MACRO TERMTAB TERM,VALUE 

Be .BYTE VALUE 

8 scektt YTERA/ 

He .ENDM TERMTAB 

86 .MACRO so CHAR 

87 char_type!char 

88 .ENDM SENSETAB 

89 

90 

33 3 
8 
94 
32 
9 
9 
99 
69 
4 
03 
4 
1 
0 
1 
1 
1 
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: EQUATED SYMBOLS: 


Pree = ch$c Poy eestaee 
ogical e ch$c_logicala8s 


cterm ch$c_ctermas 


TT _BUF 
TT ~CHAR} 
TT CHAR2 
TT~10SB 


CoOoLro 


OWN STORAGE: 


3 -PSECT RTPAD,NOWRT 
9 SENSE _TABLE: 
§ 


char_type = physical 
char_count = 1 
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v04- DECLARATIONS ety Pi 86:44:98 RTPAD.SRCICTSENSERT.MAR; 1 . 3) 
0 114 CHAR INPUT_ SPEED g 7 
4 115 CHAR OUTPUT_SPEED ; § 
8 116 CHAR CHARACTER_SIZE § 
11 CHAR PARITY_ENABLE 5 4 
1 118 CHAR PARITY_TYPE ; 9 
yee CHAR MODEM_PRESENT ; § 
018 120 CHAR AUTOBAUD_DETECT 3 
B35 121 CHAR MANAGEMERT_GUARANTEED ; 8 
0 1 § CHAR SWITCH_CHAR_1 39 
3 4 ! ? CHAR SWITCH_CHAR_2 : 10 
0000100 125 char_type = logical 
§o09000% 09 136 charcount © 1° 
0028 =«1 8 CHAR MODE WRITING ALLOWED : 7 
88 _— CHAR TERMINAL_TYPE : ¢ 
030 130 CHAR TERMINAL_SUBTY ; 
0034 131 CHAR OUTPUT_FCOW_CONTROL 3 4 
0038 13 CHAR OUTPUT PAG : 3 
003c 1 CHAR FLOW _CRAR_PASS_THRU : § 
0040 134 CHAR INPUT_FLOQ@_CONTROL : 
0044 135 CHAR LOSS_ROTIFICATION ; 8 
0048 = $ CHAR LINE_WIDTH 3 9 
004c 1 CHAR PAGE_LENGTH : 10 
0050 138 CHAR STOP_LENGTH 3 11 
0054 139 CHAR CR_FILL : \¢ 
0058 140 CHAR LF Feu ; 7 
005C 141 CHAR WRAP 3 14 
0060 146 CHAR HORIZONTAL_TAB s 35 
0064 14 CHAR VERTICAL_ TAB 3; 16 
0068 144 CHAR FORM_FEED 3 17 
006C 145 
00000200 006C 146 char_type = cterm 
00000001 006C 147 char_count = 1 
006C 148 
439 149 CHAR IGNORE_ INPUT 3 7 
00 150 CHAR CHAR_ATTRIBUTES ; ¢ 
0074 +151 CHAR CONTROL_O PASS_THRU 3 
0078 13 CHAR RAISE_INPOT 3 4 
007C¢ 15 CHAR NORMAC_ECHO , 3 
sit 4 154 ;e88 CHAR REQUEST PROCESSING 3; 6 
0080 155 CHAR INPUT ESCAPE LE :7 
0084 136 CHAR OUTPUT_ESCAPE_ENABLE : 8 
088 1? CHAR INPUT_COUNT_ST : 9 
0 ‘ 158 CHAR AUTO_PROMPT ; 10 
bee 12? CHAR ERROR_PROCESSING 3 1 
FFFF 9 9 19 -WORD -1 ; End of List (any negative number) 
0096 183 SENSE _BAUD: ; Table must be in ascending order 
4 164 BAUDTAB : 0 
09 165 BAUDTAB 50 3 7 
O9A 198 BAUDTAB 75 ; § 
09C 16 BAUDTAB 110 3 
09 198 BAUDTAB 134 3 4 
+ 18 BAUDTAB 1 8 33 
A 170 BAUDTAB 3 ee 
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v04- CTSENSECHAR = Map READ_CHAR into CHAR us 5-SEP-1984 05:14: RTPAD.SRCICTSENSERT.MAR; 1 (2) 
144 7 ; Outputs: 
144 3 : R1_ is buffer Length 4 start 
144 : buffer pointed to by R3 is complete 
127 ? : ALL registers destroyed 
144 ; ETSENSECHAR:: 
144 
53 bo 144 4 PUSHL R3 3; Save 
51 $8 AO C 0146 5 MOVZWL CTPSW_MSGSIZE(RO),R1 3; message size 
50 A 83 a 14A § way CTPSB_MSGTYPE(RO) ,RO ; base address 
Ss Ft FS C 13 ADDL RO,R1,811 ; add together for end of message address 
12 § 10$: 
56 8s 3c. 6015 40 MOVZWL (R2)+,R6 ; Get parameter 
58 D1 15 41 CMPL Re rif 3 past end? *** should be one up? 
11 1A 0158 4¢ BGTRU 25$ : Done, exit 
83 56 BO O15A 4 OVW R6,(R3)+ : Move into table 
57 FESF CF 9E 8125 rf: 208 MOVAB SENSE_TABLE,R7 ; Get table address 
87 56 BI O12 46 CMPW R6,(R7)+ ; Compare to table entry 
07 «—«13 O16 47 BEQL 6-30 : Branch if match found 
87 B65 0167 48 TSTW (R7)+ 3; Advance pointer past routine 
| ae Ries 2 BGEQ 20$ ; Loop if greater than or equal to zero 
0168 51 3; PANIC 3; ‘invalid sense mode returned' 
0168 26 25$: ; 
0193 31 0168 5 BRW POST_SENSE_EXIT ; exit code 
016E 54 
016E 55 ; 
016E 56 ; Dispatch to routine 
QO16E 257; 
O16E 258 S0S: 
56 OOOO017F'EF 9€ B198 59 MOVAB SENSE_ROUTINES,R6 ; Base 
57 67) «63C C017 60 MOVZWL (R77) ,R7 ; get routine address . 
57 56 CO 0178 61 ADDL2 R6,R? ; Add offset to base for routine address 
67 16 0178 362 JSB (R?) : jsb to routine 
D3. 11 «#0170 26 BRB 10$ ; Do next parameter 
017F see 
017F 63 3 
017F 266 ; ALL these routines have RO,R1,R4,R6-R8 as scratch 
O17F «6267 ; 
017F 268 
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v04- CTSENSECHAR = Map READ_CHAR into CHAR us aes} 0g: 44:98 FRIPAD SRE CTSENSERT.MAR; 1 ° (%) 
17F 70 SENSE_ROUTINES: 
1 BS pyatea 
3 physica 
if is “ot SPEED hysical 1 
3 sica 
50 03 AA 9A OI7E 578 - "MOVZBL TT_10SB+3(R10) ,RO : Get speed 
06 3 1 7 EQL OUTPUT SPEED :; If zero, then same as output speed 
oF 1 1 7 BSBB gt SPEED 3 map from TT$C_BAUD_xxxx 
83 BY 1 7 MOVW RO, TR3)+ 3; set receive speed 
0 ; 2 iy RSE ; Return 
188 + OUTPUT_SPEED: ; physical 2 
50 02 AA 9A 018B ¢ MOVZBL TT_I0SB+2(R10),RO 3 set transmit Speed 
4 10 yf 8 GET_SPEED ; map from TT$C_BAUD_xxxx 
83 0 B60 0191 ge MOVW RO, TR3)+ : set tranmit speed 
05 B19¢ 82 RSB 3; Return 
8132 6? 3; Local routine to map TT$C_BAUD rates into speed 
8132 34 3 Input: 
195 90 ; RO = Baud rate in TT$C_BAUD_xxx terms 
0195 $a 3 
0195 5 3 Output: 
0195 93; RO - baud rate in BPS 
0195 94; 
0195 295 GET_SPEED: 
51 FEFD CF 9E 0195 38 MOVAB sense BAUD ,R1 ; Get table 
0 6140 3C O19A 29 MOVZWL (R1)CROJ,RO : Index in and fetch value 
05 O19E 98 RSB 3; Return 
019F 99 
Hh 00 CHARACTER_SIZE: ; physical 3 — 
50 O07 90 019F 01 “Ove #7,R0 ; Character size 
OF €1 O1A2 02 BBC #TT$V_EIGHTBIT,- 
03 04 a9 01A4 = 30 T_CHAR1(R9),10$ : check characteristic 
50 08 90 Bar be MOVB #8,RO 3; Character size 
83 50 98 O1AA 06 10$: MOVZBW RO,(R3)+ ; Set value 
05 Q1AD 0 RSB 3; Return 
O1AE 08 
1AE 309 PARITY_ENABLE: ; physical 4 
50 94 OIA 10 CLRB RO ; Set noparity 
06 E1 1B 11 BBC #TTS$V_PARITY,- 
03 06 AA 018 lg TT_105B+6(R10),10$ : Check parity 
50 O01 90 8 \ 108 MOVB #1,R0 ; Set parity enabled 
83 50 90 018 15 MOVB RO, (R3)+ 
05 188 18 RSB ; Return 
18C 18 PARITY_TYPE: 3; physical 5 
50 01 90 O1BC 1 MOVB #1,R0 3; Assume even 
07 €1 O1BF 320 BBC #Tt$v_oDD,- 
03 06 AA 1¢1 1 TT_10SB+6(R10) ,10$ : branch if even 
0 02 90 ies § 108 MOVB #2,R0 3; Set odd 
83 § 50 1C7 4 MOVZBW RO,(R3)+ ; Set parity 
0 ite 2 RSB 3; Return 


L," AX/VMS Macro V04-00 Page 7 
TERISTICS 1-SEP-1 1) NSERT.MAR; 1 (3) 
voreooo” CTSENSECHAR = Rap READ-CHAR into CHAR us 'S-SEP-198¢ OSi14:ss LRTPAD SRE ICTSE 
. ; physical 6 
1¢B 7 MODEM_PRESENT: : physical 6 
3 ft Oleh 358 BBC arsy ODEM ; 
05 06.09 1 et 1p 0 TEMA (ROS, 108 3 check modem bit 
1 move FITR 
cahigg 7 og oh g 108 nova RO, (R3D* : Set value 
85 50 3 103 nA RSB : ; Return 
ib8 é AUTOBAUD_DETECT: 9 3; physical 7 
50 94 01D9 a 
m © ge § sis TT CHARD ROSY 08 ; Set autobaud 
03°F Of 160 340 Move #17RO 
50 0190 OE 7 ves. 
83 50 90 O1ES 342’ move RO, R34 Gt 
05 O16 23 RSB : 
OEY 43 MANAGEMENT GUARANTEED: : physical 8 
r ; 
ade OIED 47 108: SB . swt 4 
O1EA ay STEN Cone ts ; Ignore this string data 
0111 30 OIEA 20 BsB0 IGNORE _STRING a 
; 10 
O1EE 338 SWITCHLCHAR 2: oe coping da A. eering date 
word Ry Bring pate! | Aetie 
O1F2 356 
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voe= CTSENSECHAR ~ Map READ CHAR tuto CHAR us SoSEPo19B4 OSitacss YateAp smeserseucens mar:1 fag 
i 35 : logical 
1F 60 MODE_WRITING ALLOWED: ; logical 1 
8394 (O1FS SB et tees ° 
05 1. 86 10$: $B 3; Return 
if ee TERMINAL_TYPE: ; logical 2 
1F 98 3; Bits are: 
1F 67 ; 0 = known/unknown 
Bite re : 1 = scope/hardcopy 
50 4 oir % ; CLRL = RO 
1F7 71 ASSUME TTS_UNKNOWN EQ 0 3 assume unknown = 0 
01 A9 95 O1F7 te TSTB TT_BuF+1(R9) : is it unknown? 
03 13 OFA 7 BEQL ; Branch if unknown 
50. «(01 88 pire is 10$ BISB #CTPSM_CH_KNOWN,RO ; Set known bit 
Oc €1 O1FF id: "BBC #TTSV_SCOPE,- 
03 04 Ad 0201 7 TT_CHAR1(R95, 20$ 3 check for scope 
50 02 88 0207 8 208 BISB #CTPSM_CH_ SCOPE ,RO 3; set scope 
83 50 98 0207 380 MOVZBW RO,(R3)+ : set value 
05 Bsa 3 RSB 3; Return 
He es TERMINAL _SUBTYPE: : logical 3 
50 01A9 9A 0208 85 set TT pure (a9) RO 3: Fetch terminal type byte 
51 FEAS CF 9E 0 OF 86 ' MOV TERM_TABLE,R4 : Address of table 
54 81 9A § 14 353 MOVZBL cniye a 3 Get terminal type from table 
OD 13 0217 89 BEQL 30$ ; if zero, end of List => unknown 
54 50 91 0219 90 CMPB RO,R4 3; Compare Serainel types 
0 13 O21c 391 BEQL 408 > Match, 
54 81 QA O2IE 8 MOVZBL (R1)+,R4 3 fis Length not string 
51 54 CO 0221 39 ADDL R4,R1 3 A to pointer 
EE 11 0224 39% BRB 20$ ; 
0226 95 308 
0226 96 MOVAB UNKNOWN_TT,R1 ; “unknown’’ 
$8 97 40S: 
BB B 98 PUSHR #*M<R2,R4,R5> ; Save registers 
D 399 MOVZBL (R1),R4 : Get Length 
0 400 INCL 4 : Include byte for count 
401 MOVC3 R4,(R1),(R3) ; Move to buffer, update R3 
BA 40¢ POPR #*M<R2,R4,R5> : restore 
5 2 : RSB ; Return 
9 4 $ OUTPUT_FLOW_ CONTROL: : logical 4 
9 4 CLRB R 3 assume no 
4 8 BBC #TT$V_TTSYNC,- 
D 40 TT_CHAR1(R9) ,10$ : branch if not tt sync 
90 4 410 MOVB #1,R0 3; Set true 
4 411 108: 
4 ti§ MOVB RO, (R3)+ 3; Set data 
$$ 41 RSB 3; Return 
4 414 
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CHARACTERISTICS "Breen 1s OSsiasss Area sReseTSEMSERS «MAR: 1 
CTRERABZCTERA SENSE CHARACTERISTICS | 1695 
ENSERT CTSENSECHAR = Map READ_ ; logical 5 
CTSE ' — STOP: 4 assume no 
sas ars adie all HOLDSCREEN, = h if not holdscreen 
de Et 549 a3 Bee TTTENART ERS) e108 z branch 4 
Bo" ‘ 0 DRE 419 mass stir ; Set data 
0 01 9 : ; y 108: move RO, (R3)¢ : Return 
af ete $38 ~ : ; logical 6 
H 434 FLOW_CHAR PASS THRU: Sage 
83 2 Zgy 108: =| O8 ; logical 7 
258 INPUT_FLOW CONTROL ; assume no 
4 2 d 5 ~  CLRB ay Tsy HOSTSYNC,= ; branch if not host sync 
ay 4 2 : ? - TT CHARI (R9) , 108 + Set true 
03 04 Ag osee 4 MOVB = so#1, : data 
50 01 90 O85 5 sags: fee: i Set da 
83 50 + 8 ¢ 4 5 RSB : logical 8 
: ° ore 
O566 ; LOSS_NOTIFICATION: . : ign 
ol i ; e3 239 108: ; Bell on loss data? 
he hen tanith 
6 3 1g ME ety rt_pur+2cR9) ,(R3)+ Return 
83 02 A9 BD O¢69 4d RSB logical 10, 
° . e 
O56e 446 PAGE LENGTH: TT_CHAR1+#3(R9), (R3)+ s pore 
Sti On oe ; Logical 1 
7 . 3 ** ignor 
Bry $3) stor.uewets a, | ioe 
8 8s 037 452 RSB ; logical 12 
a2r6 rt CR_FILL: RO ; Assume no cr 
Be gore 488 SBC, ATTSV_CRFILL,- ; branch if off 
on ORS 8Sh8 456 B TT_CHART (9) 108, ; branch 
04 04 29 097A $2 MOVW = =—- TTT10SB+6(R10) ,R : 
vo Seaerand ia 0 et i35 —_ MOVW = =RO, (R3) + ; Return 
83 50 4 ] 461 RSB : logical 13 
- R 
464 CLAW LFFILL,= h if off 
oa Ei > tes 7 TH LENARY (9) TOs, re 
04 04 A9 D 188 MOVW = TTT10SB+7(R10), 
50 7 AA B60 468 10$: movw RO, (R3)+ Return 
83 50 BO 0690 469 RSB 
94 471 


12 
CTSENSERT = RTPAD/CTERM SENSE CHARACTERISTICS mi ie hs 9 get} 08 AX/VMS Macro V04-00 Page 
v04- CTSENSECHAR = Map READ_CHAR into CHAR us -SEP-1984 71 RTPAD.SRCJIC CTSENSERT. MAR; 1 
94 472 WRAP: 3; logical 14 
50 4 Bo a3 138 MOVW 3 astune no wrap 
9 €£ 7 67% BSC attsy 
03 04 Ad 99 475 1 CHART CRO), 10$ : branch if no wrap 
0 04 80 ae £28 108 MOVW berk ; Set wra 
83 50 80 OF 478 "  MOVW sO, (R34 ; Set data 
0 " tf RSB 3; Return 
A 481 HORIZONTAL_TAB: ; logical 15 
50 oF B0 A 4 ¢ mMO0W #2,R0 ; Assume no mechtab 
08 €1 0 Ab 4 BBC #TTSV_MECHTAB,- 
03 04 A9 AB 484 TT_CHAR1(R9) , 108 ; Set mechtab 
50 O01 480 pss tbe 108 MOVW #1,R0 ; set mechtab 
83 50 BO OQO2AE iB ; MOVW RO, (R3)+ ; set data 
05 0 B rt RSB ; Return 
0982 490 VERTICAL_TAB: : logical 16 
83 B4 02B 491 CLRW (R3)+ ; ignore 
05 bsBe 136 RSB ; Return 
psB2 494 FORM_FEED: ; logical 17 
50 0 BO 0285 495 MOVW #2,R0 3; Assume no mechform 
13, £1 02BB 496 BBC #TT$V_MECHFORM, - 
03 04 Ad 02BA 497 TT_CHAR1(R9) , 108 : Set mechform 
50 01 #4B0 6508 238 108 MOVW #1,R0 : set mechform 
83 50 B0 d2¢0 500 §  MOVW  RO,(R3)+ ; set data 
05 O2c 501 RSB ; Return 
02C4 206 
02c4 50 


~~ 


7p 
mo 
>-— 
zm 


wm 
. 
o 
o 
@ 
3 
3 


IGNORE _INPUT: 3 cterm 1 
CLR B (R3)+ : Ignore 
10$: RSB ; Return 


CHAR_ATTRIBUTES: ; cterm 2 


83 94 
05 


RSB 


CONTROL_O_PASS_THR : cterm 3 
“cCRB (R je : Ignore 
10$: RSB 3; Return 


RAISE_INPUT: 3; cterm 4 
CLRB 0 3; Assume lower case (i.e. NO RAISE) 


Branch if NO RAISE 
Set RAISE 


83 94 


R 
7 BBS #TT$V 
03 04 Ad ae CHART CRS, 10$ 


50 601s 90 


MOVB 


10$: 


83 50 90 set data 


MOVB RO, (R3)+ 
RSB 3; Return 


NORMAL _ECHO: cterm 5 
CLRB 


(note opposite sense) 


RO 
BBS #TT$ 7 
03 04 Ad A ,10$ ; check noecho 
50 01 90 108 MOVB #1,R 


8§ 50 90 


CTSENSERT - RIP RM SENSE CHARACTERISTIES ~  16*SEP=1986 02:11:02 VAX/VMS Macro v0s-00 Page 11 
vibes CTSEN D ROD READ CHAR tuto CHAR us SoSEPHlobG OSiqales Fatexp smeserstucess mars: age fd, 
MOVB RO, (R3)+ 3; set data 


SOOOCOOSSOOSOSOSCSOSOOCSCOCOO COCO O COS OOOO SOOOCO OO OOO OOOO OOO OOOOOOOO 

SN HMM MMmMmmMmmmmmmmm oO OO OOO OOF AMOOOOAOAOOOOOOOOOOOOOH On 
AO WOD SOOO NUVI SMD ONIN NNN NOW DW OOOO NOD WD S OOOO LS EEE IO 
DVDPVPVDV IV LV PVDVDV ST SVI VIVO ULI USSU USUSUS ISVS US USUI ISIS USS US ISVS USSSA SISA IOSIOSIOS 
PDP BB BS BB EE WWI NAINA AINIIPOPPINPIPOPOPONINII 2 2 OO OS SS SS OOCOOO 
—QDOONA UNE WIN 0 ONAN WIP 9 OO NA UNE WN 0 OO NAME WIPO OONOU EW" 0 O@ 


; 
05 : RSB 3; Return 
2 p**® REQUEST_PROCESSING: 3 cterm 6 
$ INPUT_ESCAPE_ENABLE: : cterm 7 
2 OUTPUT_ESCAPE_ENABLE : ; cterm 8 
50 94 § CLRB RO 
03 E1 BBC #TTSV_ESCAPE,- 
03 04 Ad § TT_CHAR1(R9) ,10$ 
50 01 90 108: MOVB #17RO ; Set escape 
83 50 90 "  MOVB-~—sRO, (R3) + 
05 RSB ; Return 
INPUT_COUNT_ STATE: 3 cterm 9 
83 §B4 CLRO (R3)+ ; Ignore 
05 SB 
AUTO_PROMPT: : cterm 10 
83 94 CLRB (R3)+ ; Ignore 
05 10$: RSB ; Return 
ERROR_ POLE SINS: 3; cterm 11 
83 94 LRB (R3)+ ; Ignore 
05 10$: RSB ; Return 


D 12 
CAUPERRERT = RTPAD/CTERM SENSE CHARACTERISTICS ae i tae PY 8631) :98 vax /VMS Macro V04-00 Page ig, 
v04 CTSENSECHAR = Map READ_CHAR into CHAR us 5-SEP-1984 05:14: RTPAD.SRCJCTSENSERT .MAR; 1 
FE 6 
FE 6 
83 94 Fr 6 
05 8 6 
1 6 


| “a 
M 

g IGNORE STRING: 

4 CLRB (R3)+ 

i RSB 


CTSENSERT 
v04= 


ENSE CHARACTERISTIES © 
READ_CHAR into CHAR us 


—. 
Wo 
te 
nn 
mm 
vv 
te 
+ 
ono 
coco 
ae 
oo 
ivr ot) 
—_—— 


: 1:08 pacyes Macro V04-00 Page 
214: RTPAD.SRCICTSENSERT.MAR; 1 


PoPL. sR ; start gf buffer 


MS 
- Map 
i POST_SENSE_EXIT: 
f : Return R1 as correct length of characteristics 
58 
74 
75 
76 
577 


1 
( 


CT 
vo 


-—~ 


"Ore ee 188s OSsiaiss LAteap snedessemsegy mars? 2% 
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- RTPAD/CTERM SENSE CHARACTERISTICS 


Symbol table 
AUTOBAU 


CTSENSERT 
AUTO 


mcuc 
ooo 


z 

w oa 

wu = P— | 

cz ew < @ 
wero Oc OO }- YY z @ 4 
OAMmNWuUeer-ETt ews =z oO = 
<OrFrm—wrtrwe —Aa>ao NOOO Se wumMmMenowm e —- 1 
VIM sw BLYV OW TOM LOWT~T ODO ZOMNOOCOCOCUMMIMFAIND w 
witty fo) Se 2 ee ee eS aa O41) ed ol ol ae a ae a ae ee ae oe a 

seecepeeeeec te tet Uy S>S> >>> o>>o>o>o>>o>r>rosarTrTOoOo- 
>> >>>> >>> >> >>> 17Fttetteeeee ee te ehh kt kt ROO seo 
PRAARAAARAAAAAAPAPAARAAAPAPAPHPAAAAAPAPAAPAAAAAAC ttt aca 
Sl cee oem see aol one cell cee areal el ae el et cet eee oem cee eel cel el el el el el cell ell el el ce eet ee et ee de EO od 
(etal ameel el areal aed amet amet ameelL amet ame ced cnmell cet oceel oeeel cee cel cell cel ce oe cel cel oe ce el oe oe ce Ce el ae eT ee i Die ier Y 


or wr our qucucucucucucucucucucucucuCN = CucuCuCUCUCUCUCUCUCUCUC so CUcuCuUCUCUCUCUCUCUCUCY 

oo oo oo COOOOOOSOSOSSSOSOOO COOCOCOCOCOSOOSO COCCCOOCOSOoOoOoO 
oO 

ca ca ce @aacaaacaacacaacaan aaaacaacaacaacaanc aacacacaacca 


DOW OUR DMOD0O 4 — Ow DN WIR OL NOOOR ONOROKR DWWLO-DOLOMaw 
BuUCOOe VOOR ONOONT UNDO 4 Ou u WIA DOOOWUL OWM2 OO DOOVANOR Ww “DSS 


ENABLE 
TROL 


ON 


STATE 
E_ENABLE 
CONTROL 

6 
GUARANTEED 
NT 
B. 


E 
RITING_ALLOWED 


— 
Y 
w 
ee 
we 
oa 
oa 


STRING 
OUNT 
ECHO 


NOTIFICATION 
ESCAPE 
FLOW 


PR 
C 
a 
“ESCAP 
“FLOW 
SPEE 
eat 
is) 
Le 
SENSE_EXIT 
INPUT 
EIGHTBIT 


E 
mK 
OUTPUT 


OUTPUT 
TT$vV_ 


on 
ERROR PROCESSING 
G 


FLOW 
IGNORE 
INPUT 
INPUT 
INPUT 
INPUT 
MODEM 
MOD 
NOR 


LOSS 
MANA 


J 


CTSENSERT 
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= RTPAD/CTERM SENSE CHARACTERISTICS Bm ii =138¢ 9e:1} 711 08 
Psect synopsis SEP=1984 


tem weer eoans meow ame $ 


! ;_Psect _Synopsis : 


weer enero ae nwo eo t 


PSECT name Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL N 
ABS 99000000 ¢ 0.) Oj -) NOPIC USR CON ABS LCL N 
RTPAD 00000309 ¢ 777.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE 
fm mannan anna ramon nae seca se 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 £8: 80:00 «02 08 +00 01-88 
zounens processing 12 8880: .. 0 SR 
s 1 36 0:00: +90 00:00: $°18 
Synbol table sort 0 00:00:01. 00:00:03.69 
s2 199 00:00:01.64 00:00:06.41 
eB table output 1 00:00:00.07 00:00:00.07 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 9 00:00:00.00 00:00:00.00 
Assembler run totals 64 00:00:11.65 00:00:50.34 


The working set Limit was 1500 pages. 

68631 bytes (1355 pages) of virtual memory were used to buffer g e. 

There were 70 pages of symbol table space allocated to hold 1274 non-local and 33 local symbols. 
7 source lines were read in Pass 1, producing 16 object records in Pass 2. 

17 pages of virtual memory were used to define 16 macros. 


he intermediate cod 


eee et em eee ee ee eee eee ee eee am $ 


Macro Library name 


~ $52 2S0UACE: erene 08d ante - -MLB;1 1 
“$255$DUA28 MLB; 1 0 
~$255$DUA28: CSYSLIBJSTARLET. MLB; 2 8 
TOTALS (all Libraries) 9 


1303 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CTSENSERT/OBJ=OBJ$:CTSENSERT MSRC$:CTSENSERT/UPDATE=(ENHS$: CTSENSERT) +EXECML$/LIB+LIB$:RTPAD/LIB 


AX/VMS Macro V04-00 
RTPAD.SRCICTSENSERT.MAR; 1 


Page 


he NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE RD WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
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